library(list)
library(readxl)
soc.all <- read.csv("Data/data_list_experiment_for_R_final.csv", header = TRUE, sep = ",", fileEncoding = "latin1")
